home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / headbump.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-06-02  |  2.5 KB  |  73 lines
  1. 1  'THE IBM PERSONAL COMPUTER - HEADBUMP
  2. 2  'VERSION 2.00  Barrett A. Hurwitz
  3. 3  ' 1984
  4. 5  GOTO 220
  5. 10  DEFINT A-Z:WIDTH 40:KEY OFF:M=1
  6. 20  S=20:T=-18:CLS:SCREEN 0
  7. 30  LOCATE 2,1:INPUT "Facial density (1-10):",M$
  8. 40  IF VAL(M$)<>0 THEN M=VAL(M$)
  9. 50  COLOR 3,0:LOCATE 23,1:PRINT CHR$(3):LOCATE 23,39:PRINT CHR$(3)
  10. 60  COLOR 6,0:FOR I=1 TO M:X=RND*36+2:LOCATE 23,X:PRINT CHR$(2);:NEXT
  11. 70  T=T+1:LOCATE 25,1:PRINT T:I$=INKEY$
  12. 80  IF I$=CHR$(0)+CHR$(77) THEN S=S+1:SOUND 1000,0.5 ELSE IF I$=CHR$(0)+CHR$(75) THEN S=S-1:SOUND 1000,0.5
  13. 90  P=SCREEN(5,S):IF P<>32 AND P<>0 THEN 110
  14. 100  COLOR 4,0:LOCATE 5,S:SOUND 200,0.5:PRINT CHR$(25):GOTO 50
  15. 110  IF S>5 THEN S=S-5
  16. 120  COLOR 5,0:LOCATE 5,S:PRINT "<< YOU HIT MY HEAD, AND NOW I'M DEAD! >>";
  17. 125  COLOR 5,0:LOCATE 7,S:PRINT "TRY AGAIN!";
  18. 130  FOR X=1000 TO 1900 STEP 100:SOUND X,0.5:NEXT
  19. 140  FOR X=1 TO 10:SOUND 500,0.5:SOUND 1000,0.5
  20. 150  FOR DV=1 TO 100:NEXT DV:NEXT X
  21. 160  LOCATE 25,1:COLOR 0,7:PRINT "SCORE:";T;:COLOR 7,0
  22. 170  LOCATE 24,1:WHILE INKEY$<>"":WEND
  23. 180  PRINT"Press `P' to play again...";
  24. 190  LOCATE 25,10:PRINT "...any other key to exit."
  25. 200  Q$=INKEY$:IF Q$=""THEN 200
  26. 210  IF Q$="P" OR Q$="p" THEN 20 ELSE END
  27. 220  KEY OFF:SCREEN 0,1:COLOR 15,0,0:WIDTH 40:CLS:LOCATE 5,19:PRINT "IBM"
  28. 230  LOCATE 7,12,0:PRINT "Personal Computer"
  29. 240  COLOR 10,0:LOCATE 10,9,0:PRINT CHR$(201)+STRING$(21,205)+CHR$(187)
  30. 250  LOCATE 11,9,0:PRINT CHR$(186)+"      HEADBUMP       "+CHR$(186)
  31. 260  LOCATE 12,9,0:PRINT CHR$(186)+STRING$(21,32)+CHR$(186)
  32. 270  LOCATE 13,9,0:PRINT CHR$(186)+"    Version 2.00     "+CHR$(186)
  33. 280  LOCATE 14,9,0:PRINT CHR$(200)+STRING$(21,205)+CHR$(188)
  34. 290  COLOR 15,0:LOCATE 17,9,0:PRINT "BARRETT A. HURWITZ, 1984"
  35. 300  COLOR 14,0:LOCATE 23,7,0:PRINT "Press space bar to continue"
  36. 310  I$=INKEY$:IF I$="" THEN GOTO 310 ELSE GOTO 320
  37. 320  KEY OFF: SCREEN 0,1:COLOR 15,0,0:WIDTH 40:CLS
  38. 330  LOCATE 7,8,0:PRINT "DO YOU WANT INSTRUCTIONS?"
  39. 340  LOCATE 14,8,0:PRINT "PRESS `Y' ONCE FOR `YES'"
  40. 350  LOCATE 16,8,0:PRINT "PRESS `N' TWICE FOR `NO'"
  41. 360  A$=INKEY$:IF A$="" THEN GOTO 360 ELSE IF A$="Y" OR A$="y" THEN GOTO 380
  42. 370  A$=INKEY$:IF A$="" THEN GOTO 370 ELSE IF A$=<>"" THEN 10
  43. 380  '  INSTRUCTIONS
  44. 390  PRINT:PRINT
  45. 400  PRINT "HEADBUMP IS A GAME OF AVOIDANCE."
  46. 410  PRINT "YOU WILL FIND AN ARROW IN THE MIDDLE"
  47. 420  PRINT "OF YOUR SCREEN,CONTROLLED BY YOUR"
  48. 430  PRINT "LEFT AND RIGHT CURSOR KEYS (4) AND (6)."
  49. 440  PRINT "TRY TO AVOID HITTING THE HAPPY HEADS"
  50. 450  PRINT "SWIFTLY SLIDING TOWARD YOUR ARROW."
  51. 460  PRINT:PRINT
  52. 470  PRINT "SET THE DIFFICULTY LEVEL BY SELECTING"
  53. 480  PRINT "YOUR FACIAL DENSITY (1 IS EASIEST)."
  54. 490  PRINT: PRINT
  55. 500  PRINT "AFTER ENTERING THE NUMBER, PRESS <ENTER> AND BEGIN."
  56. 510  PRINT:PRINT
  57. 520  PRINT "HAPPY HITTING!"
  58. 530  PRINT:PRINT:PRINT
  59. 540  PRINT "Press space bar to continue"
  60. 550  A$=INKEY$:IF A$="" THEN GOTO 550 ELSE IF A$=<>"" THEN GOTO 10
  61. 560  PRINT "TRY TO AVOID HITTING THE HAPPY HEADS"
  62. 570  PRINT "SWIFTLY SLIDING TOWARD YOUR ARROW."
  63. 580  PRINT:PRINT
  64. 590  PRINT "SET THE DIFFICULTY LEVEL BY SELECTING"
  65. 600  PRINT "YOUR FACIAL DENSITY (1 IS EASIEST)."
  66. 610  PRINT: PRINT
  67. 620  PRINT "AFTER ENTERING THE NUMBER, PRESS <ENTER> AND BEGIN."
  68. 625  PRINT:PRINT
  69. 630  PRINT "HAPPY HITTING!"
  70. 640  PRINT:PRINT:PRINT
  71. 650  PRINT "Press space bar to continue"
  72. 660  A$=INKEY$:IF A$="" THEN GOTO 660 ELSE IF A$=<>"" THEN GOTO 10
  73.